home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
prog_d
/
leds.zip
/
MAIN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-04-06
|
2KB
|
96 lines
unit Main;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Menus, Leds;
type
TMainForm = class(TForm)
Button1: TButton;
Timer1: TTimer;
Panel1: TPanel;
Button3: TButton;
Button4: TButton;
Button2: TButton;
LED1: TLEDDigit;
LED2: TLEDDigit;
LED3: TLEDDigit;
LED4: TLEDDigit;
LED5: TLEDDigit;
LED6: TLEDDigit;
LED7: TLEDDigit;
Colon1: TLEDDigit;
Colon2: TLEDDigit;
Stop1: TLEDDigit;
Label1: TLabel;
Panel2: TPanel;
ss: TLEDDigit;
ss2: TLEDDigit;
mm: TLEDDigit;
mm2: TLEDDigit;
hh: TLEDDigit;
hh2: TLEDDigit;
LEDDigit8: TLEDDigit;
LEDDigit9: TLEDDigit;
Label2: TLabel;
Timer2: TTimer;
Label3: TLabel;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
end;
var
MainForm: TMainForm;
implementation
{$R *.DFM}
procedure TMainForm.Timer1Timer(Sender: TObject);
begin
LED7.Increment;
end;
procedure TMainForm.Button1Click(Sender: TObject);
begin
Timer1.Enabled := true;
Button1.Enabled := False;
Button3.Enabled := True;
end;
procedure TMainForm.Button3Click(Sender: TObject);
begin
Timer1.Enabled := False;
Button1.Enabled := True;
Button3.Enabled := False;
end;
procedure TMainForm.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TMainForm.Button4Click(Sender: TObject);
begin
Led7.Value := 0;
end;
procedure TMainForm.Timer2Timer(Sender: TObject);
var
h, m, s, x: word;
begin
DecodeTime(Now,h,m,s,x);
ss.Value := s;
mm.Value := m;
hh.Value := h;
end;
end.